home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 6 / Amiga Format AFCD06 (Nov 1996, Issue 90).iso / serious / commercial / advex / dvescripts / _fondsequence.adpro < prev    next >
Text File  |  1996-07-02  |  2KB  |  76 lines
  1. /* 
  2. ** METTE UN FONDO AD UNA SEQUENZA DI FRAMES E LI SALVA A 24 BIT
  3. ** e
  4. ** Apre una finestra di stato sul Workbench
  5. */
  6.  
  7. ADDRESS "ADPro"
  8. OPTIONS RESULTS
  9.  
  10. TRUE  = 1
  11. FALSE = 0
  12. NL = '0A'X
  13. SQ = '27'X
  14. DQ = '22'X
  15. TmpIma = 'T:immagine'
  16. NUMEROFRAME = 0
  17. FRAMENUM = 1
  18.  
  19. Assicurati = DQ || "Assicurati di usare un FONDO" || NL ||,
  20.                    "  con le stesse dimensioni" || NL ||,
  21.                    " dei FRAMES della sequenza." || DQ
  22. OKAY1 Assicurati
  23.  
  24. GETFILES '"Scegli la sequenza - MAX 900 frames"'
  25. IF RC ~= 0 THEN EXIT
  26. PATHIN = ADPRO_RESULT
  27. IF PATHIN = "" THEN EXIT
  28.  
  29. TOTALFILES = WORDS(PATHIN)
  30.     
  31.        Trasparenza = DQ || "     Inserisci il livello di" || NL ||,
  32.                     "TRASPARENZA sul fondo da 1 a 100." || NL ||,
  33.                     "   100 = NESSUNA trasparenza." || DQ
  34. GETNUMBER Trasparenza
  35.        TRASP = ADPRO_RESULT
  36.        
  37. GETFILES '"Scegli la IMMAGINE di FONDO"'
  38.  IF RC ~= 0 THEN EXIT
  39.   FONDO = ADPRO_RESULT
  40.    IF FONDO = "" THEN EXIT
  41.      LOADER "UNIVERSAL" FONDO
  42. SAVER "IFF" TmpIma "RAW"
  43.  
  44. GETfile '"Path e nomebase dei frames elaborati"'
  45.   IF RC ~= 0 THEN EXIT
  46.     OUTFILE = ADPRO_RESULT
  47.      if OUTFILE = "" then exit
  48.  
  49. Bucatura = DQ || "    Vuoi bucare il NERO" || NL ||,
  50.                  "dei FRAMES della sequenza ?" || NL ||,
  51.                  " Premi CANCEL se NON vuoi." || DQ
  52. OKAY2 Bucatura
  53. IF RC = 0
  54.  THEN BK = '-1'
  55. IF RC = 1
  56.  THEN BK = '0'
  57.  
  58. open('Stat','CON:50/50/200/100/Situazione/cds')
  59.  
  60.     DO A = 1 TO TOTALFILES
  61. INFILE = WORD(PATHIN,A)
  62.   LFORMAT "UNIVERSAL"
  63. LOAD TmpIma 
  64. LOAD (INFILE) COMPOFFSET 0 0 (TRASP) (BK) (BK) (BK)
  65.   FRAMENUM = (FRAMENUM + 1)
  66.   NUMEROFRAME = (NUMEROFRAME + 1)
  67. NUMERO = RIGHT(NUMEROFRAME,3,'0')
  68.   SAVER "IFF" (OUTFILE)||'.'||(NUMERO) "RAW" 
  69.   writeln('Stat',"Salvo il frame Num." NUMERO)
  70. END
  71.  
  72. ADDRESS COMMAND "Delete >NIL:" TmpIma
  73. close('Stat')
  74.  
  75. EXIT
  76.